Univers Mac Interactif 42/Univers Mac Interactif - Issue 42.iso/>interactif/Démos Voyager/PIM.DIR/00019_Script_19

Text File | 1994-10-13 | 804b | 47 lines

on startMovie
  --set the keyDownSCript to "doKey"
end

on enterframe
  cursor 200
end

on waiting theTicks
  --must be preceded by starttimer
  if theTicks >= the timer then go the frame
end


on waitQT chan
  cursor 200
  if the movieRate of sprite chan =1 then go to the frame
end

on waitSound chan
  cursor 200
  if  soundbusy(chan)=1 then go to the frame
end

--on doKey
--  global autoPlaying,nextdemoKey,gobackKey
--  if autoPlaying=1 then
--    if the keycode<>nextdemoKey then
--      put 0 into autoPlaying
--    end if
--    play done
--  else
--    if the keycode=gobackKey then
--      play done
--    end if
--  end if
--end

on KeyDown
  global autoplaying
  put 0 into autoplaying
  sound stop 1
  sound stop 2
  unloadcast
  play done
end